<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN" "http://www.w3.org/TR/REC-html40/strict.dtd">
<html><head><meta name="qrichtext" content="1" /><meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /><style type="text/css">
p, li { white-space: pre-wrap; }
</style></head><body style=" font-family:'MS Shell Dlg 2'; font-size:9pt; font-weight:400; font-style:normal;">
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'#####=====================================================================================================</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">' Создание(назначение) базы данных</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Sub</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> test_CreateDataBaseDAO</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">()</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">    </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Dim</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> strTblName </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">As</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">String</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">:</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> strTblName </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">=</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#808080;">&quot;strTblName&quot;</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">    strPathDb </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">=</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> Range</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">(</span><span style=" font-family:'Courier New'; font-size:10pt; color:#808080;">&quot;strPathDb&quot;</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">).</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">Value</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">    </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Set</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> oDb </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">=</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> FnCreateDataBaseDAO</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">(</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">strPathDb</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">)</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">    Таблица </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">=</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> FnIsTablePresent</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">(</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">oDb</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">,</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> strTblName</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">)</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">    </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">If</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Not</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> Таблица </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Then</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> Создать_таблицу </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">=</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> FnCreateTblInDB</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">(</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">oDb</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">,</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> strTblName</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">)</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">End</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Sub</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Sub</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> KillDataBase</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">()</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">    </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">On</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Error</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Resume</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Next</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">    Kill </span><span style=" font-family:'Courier New'; font-size:10pt; color:#808080;">&quot;strPath.accdb&quot;</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">End</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Sub</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Function</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> FnCreateDataBaseDAO</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">(</span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">ByVal</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> strPathDb </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">As</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">String</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">)</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">As</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> DAO.Database</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'Dim strPathDb As String</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Dim</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> oDb </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">As</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> DAO.Database </span><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">' бд, в которой будет создаваться таблица</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'    strPathDb = Range(&quot;strPathDb&quot;).Value 'newDB = &quot;strPath.accdb&quot;</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">    </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">If</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> Len</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">(</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">Dir</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">(</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">strPathDb</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">,</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">16</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">))</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">=</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">0</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Then</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'если база отсутствует</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">        MsgBox </span><span style=" font-family:'Courier New'; font-size:10pt; color:#808080;">&quot;База данных не обнаружена!&quot;</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">&amp;</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> vbCrLf </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">&amp;</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#808080;">&quot;Будет создана новая. &quot;</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">&amp;</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> _</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">                vbCrLf </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">&amp;</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#808080;">&quot;Посмотрите предыдущие версии и восстановите.&quot;</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">&amp;</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> _</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">                vbCrLf </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">&amp;</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#808080;">&quot;После восстановления, внесите данные повторно&quot;</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">,</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">48</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">,</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#808080;">&quot;Внимание&quot;</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">            </span></p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">        </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Set</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> oDb </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">=</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> DBEngine.Workspaces</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">(</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">0</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">).</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">CreateDatabase</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">(</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">strPathDb</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">,</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> dbLangCyrillic</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">)</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'        Set oDb = Nothing</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">    </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Else</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">    </span></p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">    </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">End</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">If</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">    </span></p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">    </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Set</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> oDb </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">=</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> OpenDatabase</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">(</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">strPathDb</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">)</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">    </span></p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">    </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Set</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> FnCreateDataBaseDAO </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">=</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> oDb</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">End</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Function</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'=============================================================================================</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'''#####=============================================================================================</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'''Создаем новую базу ADO</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'''</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">''Function FnCreateDataBaseADO(ByVal newDB As String) As Boolean</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">''''Данная процедура создает новую базу данных с использованием возможностей ADOx.</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">''''Перед использованием ADOx необходимо установить ссылку на библиотеку _</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">''Microsoft ADO Ext. 2.1 For DDL and Security, _</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">''выполнив команды меню Tools | References (Сервис | Ссылки) в VBE.</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">''''Объект Catalog в ADOx</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">''    Dim cat As ADOX.Catalog</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">''    Err.Clear</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'''    On Error GoTo Proc_Err</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">''    Set cat = New ADOX.Catalog</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">''    cat.Create &quot;provider=Microsoft.JET.OLEDB.4.0;data source=&quot; &amp; newDB</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'''   MsgBox &quot;Database Created!&quot;, vblnformation</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">''</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">''   If Len(Err.Description) = 0 Then FnCreateDataBaseADO = True</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'''Proc_Exit:</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'''Exit Function</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'''</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'''Proc_Err:</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'''    MsgBox Err.Description</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'''    Resume Proc_Exit</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">''End Function</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'''=============================================================================================</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'================================================================================</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'Проверка на наличие таблицы в текущей базе данных</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Public</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Function</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> FnIsTablePresent</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">(</span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">ByVal</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> oDb </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">As</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> DAO.Database</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">,</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> _</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">                                </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">ByVal</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> strTableName </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">As</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">String</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">)</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">As</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Boolean</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'es - 13.06.2013</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'Проверка на наличие таблицы в текущей базе данных</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'   Если  таблица существует - вернет True (Истина = -1)</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'   В остальных случаях: False</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'--------------------------------------------------------------------</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Dim</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> i </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">As</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Integer</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">On</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Error</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Resume</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Next</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'On Error GoTo IsTablePresent_Err</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">' Пытаемся посчитать кол-во полей в заданной таблице</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">    i </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">=</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> oDb.TableDefs</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">(</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">strTableName</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">).</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">Fields.Count</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">    </span></p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">' Если поля есть - значит и таблица существует (что вполне логично)</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">    </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">If</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> i </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">&gt;</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">0</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Then</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> FnIsTablePresent </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">=</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">True</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'IsTablePresent_Bye:</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'    Exit Function</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'IsTablePresent_Err:</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'    'Болок [Select Case] ниже в принцие не нужен - так ... на всякий случай</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'    Select Case Err.Number</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'        Case 3265  ' Ошибка обращения к обьекту (т.е. НЕТ таблицы)</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'        Case Else</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'            'MsgBox &quot;Error &quot; &amp; Err.Number &amp; vbCrLf &amp; Err.Description &amp; vbCrLf &amp; _</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'            &quot;in procedure IsTablePresent&quot;, vbCritical, &quot;Error!&quot;</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'    End Select</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'    Resume IsTablePresent_Bye</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">End</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Function</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'================================================================================</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'#####=============================================================================================</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'Создаем таблицу в базе</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Function</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> FnCreateTblInDB</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">(</span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">ByVal</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> oDb </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">As</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> DAO.Database</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">,</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> _</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">                            </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">ByVal</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> strTblName </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">As</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">String</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">)</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">As</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Boolean</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Dim</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> Tbl </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">As</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> TableDef </span><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">' создаваемая таблица</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Dim</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> oFld </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">As</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> DAO.Field</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">    </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">On</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Error</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Resume</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Next</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">    Err.Clear</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">    </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">With</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> oDb</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">        </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Set</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> oTbl </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">=</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> oDb.CreateTableDef</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">(</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">strTblName</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">)</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">        </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">With</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> oTbl</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">            </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">For</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> i </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">=</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">1</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">To</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">15</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">                </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Select</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Case</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> i</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">                    </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Case</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">1</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">:</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Set</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> oFld </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">=</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">.</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">CreateField</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">(</span><span style=" font-family:'Courier New'; font-size:10pt; color:#808080;">&quot;PJI&quot;</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">,</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">10</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">,</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">12</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">)</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">                    </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Case</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">2</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">:</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Set</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> oFld </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">=</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">.</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">CreateField</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">(</span><span style=" font-family:'Courier New'; font-size:10pt; color:#808080;">&quot;Clef&quot;</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">,</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">3</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">):</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">                    </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Case</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">3</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">:</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Set</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> oFld </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">=</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">.</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">CreateField</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">(</span><span style=" font-family:'Courier New'; font-size:10pt; color:#808080;">&quot;Numero_d_enchainement&quot;</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">,</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">3</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">)</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">                    </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Case</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">4</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">:</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Set</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> oFld </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">=</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">.</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">CreateField</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">(</span><span style=" font-family:'Courier New'; font-size:10pt; color:#808080;">&quot;IdentSkid&quot;</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">,</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">3</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">)</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">': oFld.AllowZeroLength = True  'пустые строки</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">                    </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Case</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">5</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">:</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Set</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> oFld </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">=</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">.</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">CreateField</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">(</span><span style=" font-family:'Courier New'; font-size:10pt; color:#808080;">&quot;Зона&quot;</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">,</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">10</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">,</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">4</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">):</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">                    </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Case</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">6</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">:</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Set</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> oFld </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">=</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">.</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">CreateField</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">(</span><span style=" font-family:'Courier New'; font-size:10pt; color:#808080;">&quot;Travee&quot;</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">,</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">10</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">,</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">50</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">)</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">': oFld.AllowZeroLength = True  'пустые строки</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">                    </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Case</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">7</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">:</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Set</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> oFld </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">=</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">.</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">CreateField</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">(</span><span style=" font-family:'Courier New'; font-size:10pt; color:#808080;">&quot;Дата_входа&quot;</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">,</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">8</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">)</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">                    </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Case</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">8</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">:</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Set</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> oFld </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">=</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">.</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">CreateField</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">(</span><span style=" font-family:'Courier New'; font-size:10pt; color:#808080;">&quot;Crit1&quot;</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">,</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">10</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">,</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">10</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">)</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">                    </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Case</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">9</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">:</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Set</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> oFld </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">=</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">.</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">CreateField</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">(</span><span style=" font-family:'Courier New'; font-size:10pt; color:#808080;">&quot;Crit2&quot;</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">,</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">10</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">,</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">10</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">)</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">                    </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Case</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">10</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">:</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Set</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> oFld </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">=</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">.</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">CreateField</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">(</span><span style=" font-family:'Courier New'; font-size:10pt; color:#808080;">&quot;Crit3&quot;</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">,</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">10</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">,</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">10</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">)</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">                    </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Case</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">11</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">:</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Set</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> oFld </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">=</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">.</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">CreateField</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">(</span><span style=" font-family:'Courier New'; font-size:10pt; color:#808080;">&quot;Crit4&quot;</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">,</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">10</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">,</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">10</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">)</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">                    </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Case</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">12</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">:</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Set</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> oFld </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">=</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">.</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">CreateField</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">(</span><span style=" font-family:'Courier New'; font-size:10pt; color:#808080;">&quot;Crit5&quot;</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">,</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">10</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">,</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">10</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">)</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">                    </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Case</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">13</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">:</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Set</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> oFld </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">=</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">.</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">CreateField</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">(</span><span style=" font-family:'Courier New'; font-size:10pt; color:#808080;">&quot;Crit6&quot;</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">,</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">10</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">,</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">10</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">)</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">                    </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Case</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">14</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">:</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Set</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> oFld </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">=</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">.</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">CreateField</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">(</span><span style=" font-family:'Courier New'; font-size:10pt; color:#808080;">&quot;Дата&quot;</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">,</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">8</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">)</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">                    </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Case</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">15</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">:</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Set</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> oFld </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">=</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">.</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">CreateField</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">(</span><span style=" font-family:'Courier New'; font-size:10pt; color:#808080;">&quot;ДатаPSFV&quot;</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">,</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">8</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">)</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">        </span></p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">                </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">End</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Select</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">            </span></p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">                </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">.</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">Fields.Append oFld</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">                Debug.Print i </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">&amp;</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#808080;">&quot; - &quot;</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">&amp;</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> Err.Description</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">            </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Next</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> i</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">        </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">End</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">With</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">        </span></p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">        </span></p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">        </span><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'добавлем таблицу</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">        </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">.</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">TableDefs.Append oTbl</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">        </span><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'обновляю данные о таблицах</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">        </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">.</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">TableDefs.Refresh</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">        </span><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'создаем ключи по двум полям</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">        </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">.</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">Execute </span><span style=" font-family:'Courier New'; font-size:10pt; color:#808080;">&quot;CREATE UNIQUE INDEX IndexName &quot;</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> _</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">            </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">&amp;</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#808080;">&quot;ON Name (PJI,Дата_входа) &quot;</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> _</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">            </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">&amp;</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#808080;">&quot;WITH PRIMARY;&quot;</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">            </span></p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">    </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">End</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">With</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'    Set oDb = Nothing</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">    </span></p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">    </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">If</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> Len</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">(</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;">Err.Description</span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">)</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">=</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#ff0000;">0</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Then</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> FnCreateTblInDB </span><span style=" font-family:'Courier New'; font-size:10pt; font-weight:600; color:#000000;">=</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">True</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">End</span><span style=" font-family:'Courier New'; font-size:10pt; color:#000000;"> </span><span style=" font-family:'Courier New'; font-size:10pt; color:#0000ff;">Function</span> </p>
<p style=" margin-top:12px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; background-color:#ffffff;"><span style=" font-family:'Courier New'; font-size:10pt; color:#008000;">'=============================================================================================</span> </p>
<p style=" margin-top:12px; margin-bottom:12px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;">  </p></body></html>